home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Graphics / Optical.bas < prev    next >
Encoding:
BASIC Source File  |  1985-12-04  |  1.7 KB  |  35 lines
  1. 2     rgb 0,0,0,0
  2. 3     rgb 1,13,13,13
  3. 4     screen 1,4
  4. 5     scnclr
  5. 7     pena 1
  6. 10    draw(322,22 to 126,44 to 126,108)
  7. 20    draw(322,22 to 434,44 to 434,108 to 238,134 to 126,108)
  8. 30    draw(to 322,84 to 434,108)
  9. 40    draw(238,127 to 396,106 to 312,90 to 158,110 to 238,127)
  10. 50    draw(to 238,100):draw(224,103 to 224,117):draw(252,98 to 252,120)
  11. 60    draw(176,108 to 238,122 to 2*189,104)
  12. 70    draw(252,85 to 252,73 to 416,52 to 416,96 to 2*168,79 to 2*168,64)
  13. 80    draw(322,84 to 322,65):draw(308,68 to 308,80 to 140,101 to 140,54 to 224,72 to 224,90)
  14. 90    draw(238,88 to 238,68 to 126,44):draw(238,68 to 434,44)
  15. 100   draw(238,62 to 2*199,42 to 324,28 to 160,46 to 238,62)
  16. 110   draw(322,28 to 322,51):draw(308,36 to 308,53):draw(336,36 to 336,49)
  17. 120   draw(2*187,44 to 322,34 to 182,50):draw(154,56 to 154,98):draw(400,54 to 400,93)
  18. 130   for x=1 to 3000:next
  19. 140   scnclr:draw(434,120 to 400,126 to 84,86 to 84,74 to 2*196,34 to 434,40 to 434,120)
  20. 150   draw(400,126 to 400,56 to 224,80 to 168,73 to 434,40)
  21. 160   draw(224,81 to 364,97 to 364,62):draw(84,74 to 364,110 to 364,96)
  22. 165   pena 7:paint(412,99),1
  23. 166   pena 6:paint(312,95),1
  24. 167   pena 8:paint(320,110),1
  25. 170   for x=1 to 3000:next
  26. 175   pena 1
  27. 180   scnclr:draw(112,112 to 2*259,112 to 2*259,100 to 112,100)
  28. 190   draw(70,88 to 414,88 to 2*189,64 to 2*189,76 to 396,88)
  29. 200   draw(2*189,64 to 28,64):draw(28,52 to 440,52 to 2*259,100):draw(2*189,76 to 70,76)
  30. 210   x=28:y=52
  31. 220   for t=1 to 3:draw(x,y to x-2,y+1 to x-4,y+3 to x-6,y+6):draw(x,y+12 to x-2,y+11 to x-4,y+9 to x-6,y+6)
  32. 230   draw(x,y to x+2,y+1 to x+4,y+3 to x+6,y+6):draw(x,y+12 to x+2,y+11 to x+4,y+9 to x+6,y+6):x=x+42:y=y+24:next t
  33. 240   for x=1 to 3000:next
  34. 250   scnclr:goto 7
  35.